home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / grafix / raytracing / raystorm / examples / arexx / attrtest.ray next >
Encoding:
Text File  |  1996-02-26  |  1.4 KB  |  75 lines
  1. /***************
  2.  * NAME:        attrtest.ray
  3.  * VERSION:     1.0 25.06.1995
  4.  * DESCRIPTION: This ARexx-programm demonstrates different attributes
  5.  * AUTHORS:     Andreas Heumann
  6.  * BUGS:        none
  7.  * TO DO:       none
  8.  * HISTORY:
  9.  *    DATE     NAME  COMMENT
  10.  *    25.06.95 ah    initial release
  11.  ***************/
  12.  
  13. SIGNAL ON ERROR
  14.  
  15. OPTIONS RESULTS
  16.  
  17. IF ~SHOW('P','RAYSTORM') THEN DO
  18.     ADDRESS COMMAND 'run >NIL: <NIL: /RayStorm'
  19.     ADDRESS COMMAND WaitForPort RAYSTORM
  20. END  
  21.  
  22. ADDRESS RAYSTORM
  23.  
  24. 'TEXTUREPATH /textures'
  25.  
  26. 'SETSCREEN 160 128'
  27. 'SETCAMERA <0,0,80> <0,0,0> <0,1,0> 56.25 45'
  28. 'SETWORLD [0,0,0] [40,40,40]'
  29. 'POINTLIGHT <10,-10,100> SHADOW'
  30.  
  31. 'NEWSURFACE TEST'
  32. 'AMBIENT [255,0,0]'
  33. 'DIFFUSE [255,0,0]'
  34. 'SPECULAR [255,255,255]'
  35. 'REFEXP 5'
  36.  
  37. 'NEWSURFACE TEST1'
  38. 'AMBIENT [0,255,0]'
  39. 'DIFFUSE [0,100,0]'
  40. 'TRANSPAR [0,155,0]'
  41. 'REFRINDEX 1.33'
  42.  
  43. 'NEWSURFACE TEST2'
  44. 'AMBIENT [0,0,255]'
  45. 'DIFFUSE [0,0,255]'
  46. 'REFLECT [100,100,100]'
  47.  
  48. 'NEWSURFACE TEST3'
  49. 'AMBIENT [255,255,0]'
  50. 'DIFFUSE [255,255,0]'
  51. 'IMTEXTURE checker.itx <0.1,0.1,0.1> <0,0,0> <2,2,2>'
  52.  
  53. 'NEWSURFACE PLANE'
  54. 'SPECULAR [0,0,0]'
  55. 'IMTEXTURE checker.itx <0.1,0.1,0.1> <0,0,0> <5,5,5>'
  56.  
  57. 'SPHERE TEST <15,15,0>  10'
  58. 'SPHERE TEST1 <15,-15,0>  10'
  59. 'SPHERE TEST2 <-15,-15,0>  10'
  60. 'SPHERE TEST3 <-15,15,0>  10'
  61.  
  62. 'PLANE PLANE <0,0,-50> <0,0,1>'
  63.  
  64. 'STARTRENDER'
  65. 'SAVEPIC attrtest.iff'
  66. 'CLEANUP'
  67.  
  68. exit 0
  69.  
  70. error:
  71. say "Error" rc "in line" sigl ":"
  72. GETERRORSTR rc
  73. say result
  74. exit 0
  75.